home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR03 / 3QBFILES.ZIP / DODGEBAL.BAS next >
BASIC Source File  |  1993-09-26  |  6KB  |  127 lines
  1. CLS
  2. INPUT "Do you want Sound ON or OFF"; sound$
  3. CLS
  4. 10 PRINT "                        4  PLAYER  DODGEBALL"
  5. 20 PRINT ""
  6. 30 IF sound$ <> "OFF" THEN PLAY "o3l2aabcadbceffefdcl16aagdcbeadffcbdeedee"
  7. 40 PRINT "The rules are:"
  8. 50 PRINT "Player#1 goes first. He choses which player he is goiong"
  9. 60 PRINT "to throw at. Then Player#2 goes. Eventually, one Player will"
  10. 70 PRINT "be knocked out of the game. It keeps on going until all but one"
  11. 80 PRINT "Player is knocked out. That one wins."
  12. 90 PRINT ""
  13. 100 INPUT "Who is Player#1 "; name1$
  14. 110 INPUT "Who is Player#2 "; name2$
  15. 120 INPUT "Who is Player#3 "; name3$
  16. 130 INPUT "Who is Player#4 "; name4$
  17. 140 PRINT ""
  18. 150 PRINT "Each player starts out with 25 hit points."
  19. 160 life1 = 25
  20. 170 life2 = 25
  21. 180 life3 = 25
  22. 190 life4 = 25
  23. 200 PRINT "                         LET THE GAMES BEGIN!!"
  24. 210 IF sound$ <> "OFF" THEN PLAY "o3l5al16bl5cl1c"
  25. 220 PRINT ""
  26. 225 IF life1 < 1 THEN GOTO 420
  27. 230 PRINT "It is "; name1$; "'s turn."
  28. 240 INPUT "Who do you want to throw at? (if everyone else is out, type None)", throw$
  29. 250 IF throw$ = name2$ THEN GOTO 260 ELSE GOTO 310
  30. 260 PRINT "And "; name2$; " is hit!"
  31. 270 life2 = life2 - INT(RND * (10 - 0) + 0)
  32. 280 IF life2 < 1 THEN PRINT "And "; name2$; " is out!!"
  33. 290 PRINT " "; name2$; " has "; life2; " hit points remaining."
  34. 300 GOTO 420
  35. 310 IF throw$ = name3$ THEN GOTO 320 ELSE GOTO 370
  36. 320 PRINT "And "; name3$; " is hit!"
  37. 330 life3 = life3 - INT(RND * (10 - 0) + 0)
  38. 340 IF life3 < 1 THEN PRINT "And "; name3$; " is out!"
  39. 350 PRINT " "; name3$; " has "; life3; " hit points remaining."
  40. 360 GOTO 420
  41. 370 IF throw$ = name4$ THEN GOTO 380 ELSE GOTO 420
  42. 380 PRINT "And "; name4$; " is hit!"
  43. 390 life4 = life4 - INT(RND * (10 - 0) + 0)
  44. 400 IF life4 < 1 THEN PRINT "And "; name4$; " is out!"
  45. 410 PRINT " "; name4$; " has "; life4; " hit points remaining."
  46. 420 PRINT ""
  47. 425 IF throw$ = "None" THEN GOTO 1060
  48. 430 IF life2 < 1 THEN GOTO 610
  49. 440 PRINT "It is "; name2$; "'s turn."
  50. 450 INPUT "Who do you want to throw at? (if everyone else is out, type None) ", throw$
  51. 460 IF throw$ = name1$ THEN GOTO 470 ELSE GOTO 510
  52. 470 PRINT "And "; name1$; " is hit!"
  53. 480 life1 = life1 - INT(RND * (10 - 0) + 0)
  54. 490 IF life1 < 1 THEN PRINT "And "; name1$; " is out!"
  55. 500 PRINT " "; name1$; " has "; life1; " hit points remaining."
  56. 510 IF throw$ = name3$ THEN GOTO 520 ELSE GOTO 560
  57. 520 PRINT "And "; name3$; " is hit!"
  58. 530 life3 = life3 - INT(RND * (10 - 0) + 0)
  59. 540 IF life4 < 1 THEN PRINT "And "; name3$; " is out!"
  60. 550 PRINT " "; name3$; " has "; life3; " hit points remaining."
  61. 560 IF throw$ = name4$ THEN GOTO 570 ELSE GOTO 610
  62. 570 PRINT "And "; name4$; " is hit!"
  63. 580 life4 = life4 - INT(RND * (10 - 0) + 0)
  64. 590 IF life4 < 1 THEN PRINT "And "; name4$; " is out!"
  65. 600 PRINT " "; name4$; " has "; life4; " hit points remaining."
  66. 610 PRINT ""
  67. 620 IF throw$ = "None" THEN GOTO 1090
  68. 630 IF life3 < 1 THEN GOTO 810
  69. 640 PRINT "It is "; name3$; "'s turn."
  70. 650 INPUT "Who do you want to throw at? (if everyone else is out, type None) ", throw$
  71. 660 IF throw$ = name1$ THEN GOTO 670 ELSE GOTO 710
  72. 670 PRINT "And "; name1$; " is hit!"
  73. 680 life1 = life1 - INT(RND * (10 - 0) + 0)
  74. 690 IF life1 < 1 THEN PRINT "And "; name1$; " is out!"
  75. 700 PRINT " "; name1$; " has "; life1; " hit points remaining."
  76. 710 IF throw$ = name2$ THEN GOTO 720 ELSE GOTO 760
  77. 720 PRINT "And "; name2$; " is hit!"
  78. 730 life2 = life2 - INT(RND * (10 - 0) + 0)
  79. 740 IF life2 < 1 THEN PRINT "And "; name2$; " is out!"
  80. 750 PRINT " "; name2$; " has "; life2; " hit points remaining."
  81. 760 IF throw$ = name4$ THEN GOTO 770 ELSE GOTO 810
  82. 770 PRINT "And "; name4$; " is hit!"
  83. 780 life4 = life4 - INT(RND * (10 - 0) + 0)
  84. 790 IF life4 < 1 THEN PRINT "And "; name4$; " is out!"
  85. 800 PRINT " "; name4$; " has "; life4; " hit points remaining."
  86. 810 PRINT ""
  87. 820 IF throw$ = "None" THEN GOTO 1120
  88. 830 IF life4 < 1 THEN GOTO 1020
  89. 840 PRINT "It is "; name4$; "'s turn."
  90. 850 INPUT "Who do you want to throw at? (if everyone else is out, type None) ", throw$
  91. 860 IF throw$ = name1$ THEN GOTO 870 ELSE GOTO 920
  92. 870 PRINT "And "; name1$; " is hit!"
  93. 890 life1 = life1 - INT(RND * (10 - 0) + 0)
  94. 900 IF life1 < 1 THEN PRINT "And "; name1$; " is out!"
  95. 910 PRINT " "; name1$; " has "; life1; " hit points remaining."
  96. 920 IF throw$ = name2$ THEN GOTO 930 ELSE GOTO 970
  97. 930 PRINT "And "; name2$; " is hit!"
  98. 940 life2 = life2 - INT(RND * (10 - 0) + 0)
  99. 950 IF life2 < 1 THEN PRINT "And "; name2$; " is out!"
  100. 960 PRINT " "; name2$; " has "; life2; " hit points remaining."
  101. 970 IF throw$ = name3$ THEN GOTO 980 ELSE GOTO 1020
  102. 980 PRINT "And "; name3$; " is hit!"
  103. 990 life3 = life3 - INT(RND * (10 - 0) + 0)
  104. 1000 IF life3 < 1 THEN PRINT "And "; name3$; " is out!"
  105. 1010 PRINT " "; name3$; " has "; life3; " hit points remaining."
  106. 1020 PRINT ""
  107. 1030 IF throw$ = "None" THEN GOTO 1150
  108. 1040 GOTO 225
  109. 1050 PRINT ""
  110. 1060 PRINT " "; name1$; " is the supreme ruler!"
  111. 1070 IF sound$ <> "OFF" THEN PLAY "o3l16aabbcaabbcaabbcdefacbfgfg"
  112. 1080 GOTO 1170
  113. 1090 PRINT " "; name2$; " cremated everyone else!"
  114. 1100 IF sound$ <> "OFF" THEN PLAY "o4l5aal2bl5aal1c"
  115. 1110 GOTO 1170
  116. 1120 PRINT " "; name3$; " is the master of dodgeball players!"
  117. 1130 IF sound$ <> "OFF" THEN PLAY "o4l7gfcbaeddedcbal16o4cfgp3aacbp5ab"
  118. 1140 GOTO 1170
  119. 1150 PRINT " "; name4$; " wins with "; life4; " hit points left!"
  120. 1160 IF sound$ <> "OFF" THEN PLAY "o4l2aabbcdgfbp3l4bl2p3l4bl2p3l2a"
  121. 1170 PLAY "o1l1p4p4p4p4p4p4"
  122. CLS
  123. INPUT "Do you wish to play again (y or n)"; play$
  124. IF play$ = "y" THEN GOTO 10 ELSE END
  125.  
  126.  
  127.